home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / s / sfxv3.03crackreg.lha / sfx / Install-SFX < prev   
Text File  |  1995-10-15  |  10KB  |  336 lines
  1. ; Install-SFX Start -----------------------------------------------------------------------------------------
  2. ;
  3. ; $VER: Install-SFX (17.07.1995)
  4. ;
  5. ; SoundFX 3.20 Installscript
  6. ; (C) Copyright 1993-1995 Stefan Kost. All Rights Reserved.
  7. ;
  8. ; -----------------------------------------------------------------------------------------------------------
  9.  
  10. ; setze sprachenabhängige Texte -----------------------------------------------------------------------------
  11.  
  12. (IF (= @LANGUAGE "english")
  13. (
  14.     (SET #bad-kick            "SoundFX3.2 requires at least Kickstart 2.04 !")
  15.     (SET #welcome-messy     "\n\nWelcome to the installation of SoundFX3.2 !")
  16.     (SET #choose-dest        "Please choose a destination directory !\nA drawer called SFX will be automatically generated !")
  17.     (SET #choose-dest-help    "Here you can choose the place on your HD, were SFX should be installed")
  18.     (SET #dest-require        "\n\nPlease be shure, that you have on your HD at least 1.2 Mb free !")
  19.     (SET #copy-fonts        "copying Fonts ...")
  20.     (SET #copy-libs            "copying Librarys ...")
  21.     (SET #copy-keyfile        "copying Keyfile ...")
  22.     (SET #copy-synths        "copying Synths ...")
  23.     (SET #copy-eqshapes        "copying EQ-Shapes ...")
  24.     (SET #copy-envelopes    "copying Envelopes ...")
  25.     (SET #copy-rexxscripts    "copying ARexx-Scripts ...")
  26.     (SET #copy-workshop        "copying Workshopfiles ...")
  27.     (SET #copy-guides        "copying Guides ...")
  28.     (SET #copy-executable    "copying Executable ...")
  29.     (SET #copy-help            "The respective files will copied to your HD.")
  30.     (SET #choose-lang        "Please choose your prefered language for the documentation !")
  31.     (SET #choose-lang-help    "The documentation and OnLine-Help are existing in different languages - choose the one you understand best")
  32.     (SET #choose-pver        "Please choose the programversion to be installed !\n The versions marked with an * are only available for registered users !")
  33.     (SET #choose-pver-help    "This depends on your computerhardware (processor/mathcopro.) !")
  34.     (SET #choose-icon        "Please choose the the icon you want to install\n The 4 colour version is made for standart wb-colors and the 8 colour version is made for magic-wb !")
  35.     (SET #choose-icon-help    "If your wb-screen has more than 4 colours than choose the 8 colour version.\n This one looks nicer.")
  36.     (SET #exit-messy        "\n\nSFX could successfuly installed.\nPlease read the guide, to learn how to work with the program.\n")
  37. ))
  38. (IF (= @LANGUAGE "deutsch")
  39. (
  40.     (SET #bad-kick            "SoundFX3.2 benötigt mindestens Kickstart 2.04 !")
  41.     (SET #welcome-messy        "\n\nWillkommen zur Installation von SoundFX3.2 !")
  42.     (SET #choose-dest        "Bitte Zielverzeichnis aussuchen !\nEin Verzeichnis mit dem Namen SFX wird angelegt !")
  43.     (SET #choose-dest-help    "Hier können Sie auswählen, wohin Sie das Programm installeren möchten")
  44.     (SET #dest-require        "\n\nBitte stellen Sie sicher, daß auf der Zielpartition\n 1.2 Mb-Speicher frei ist !")
  45.     (SET #copy-fonts        "kopiere Fonts ...")
  46.     (SET #copy-libs            "kopiere Librarys ...")
  47.     (SET #copy-keyfile        "kopiere Keyfile ...")
  48.     (SET #copy-synths        "kopiere Synths ...")
  49.     (SET #copy-eqshapes        "kopiere EQ-Shapes ...")
  50.     (SET #copy-envelopes    "kopiere Envelopes ...")
  51.     (SET #copy-rexxscripts    "kopiere ARexx-Scripts ...")
  52.     (SET #copy-workshop        "kopiere Workshopdateien ...")
  53.     (SET #copy-guides        "kopiere Guides ...")
  54.     (SET #copy-executable    "kopiere Executable ...")
  55.     (SET #copy-help            "Die entsprechenden Dateien werden gerade auf ihre Festplatte kopiert.")
  56.     (SET #choose-lang        "Bitte wählen Sie Ihre bevorzugte Sprache für die Dokumentation aus !")
  57.     (SET #choose-lang-help    "Die Dokumentation und OnLine-Hilfe existiert in mehreren Sprachen - wählen Sie die Sprache aus, die Sie am besten verstehen")
  58.     (SET #choose-pver        "Bitte wählen Sie die zu installierende Programmversion aus !\n Die Versionen die mit einem * markiert sind, sind nur für registrierte Benutzer erhältlich !")
  59.     (SET #choose-pver-help    "Die Version ist von Ihrer verwendeten Computerhardware (Prozessor/MatheCo.) abhängig !")
  60.     (SET #choose-icon        "Bitte wählen Sie das Icon aus, das Sie installieren möchten !\n Die 4-farbige Variante ist für die Standart-WB und die 8-farbige für MagicWB !")
  61.     (SET #choose-icon-help    "Wenn Sie mehr als 4 Farben auf der WB haben, dann wählen Sie die 8-farbige Version.\n Diese sieht schöner aus.")
  62.     (SET #exit-messy        "\n\nSFX konnte erfolgreich installiert werden.\nBitte lesen Sie das Guide, um zu erfahren wie das Programm bedient wird.\n")
  63. ))
  64.  
  65. ; check kick version ----------------------------------------------------------------------------------------
  66.  
  67. (if (< (/ (getversion) 65536) 37)
  68.     (abort #bad-kick)
  69. )
  70.  
  71. ; los geht`s ------------------------------------------------------------------------------------------------
  72.  
  73. (MESSAGE #welcome-messy)
  74. (COMPLETE 0)
  75.  
  76. (SET @default-dest
  77.     (ASKDIR
  78.         (PROMPT #choose-dest)
  79.         (HELP #choose-dest-help)
  80.         (DEFAULT @default-dest)
  81.     )
  82. )
  83. (MESSAGE #dest-require)
  84.  
  85. ; falls nicht vorhanden, Verzeichnis anlegen ----------------------------------------------------------------
  86. (SET @default-dest (TACKON @default-dest "SFX"))
  87. (SET sfx-dest @default-dest)
  88. (IF (= (EXISTS sfx-dest) 0)
  89.     (MAKEDIR sfx-dest (INFOS))
  90. )
  91.  
  92. ; Fonts kopieren --------------------------------------------------------------------------------------------
  93. (COMPLETE 8)
  94. (COPYFILES
  95.     (PROMPT #copy-fonts)
  96.     (HELP #copy-help)
  97.     (SOURCE "Fonts/")
  98.     (DEST "FONTS:")
  99.     (ALL)
  100. )
  101.  
  102. ; Libs kopieren ---------------------------------------------------------------------------------------------
  103. (COMPLETE 10)
  104. (COPYLIB
  105.     (PROMPT #copy-libs)
  106.     (HELP #copy-help)
  107.     (SOURCE "Libs/amigaguide.library")
  108.     (DEST "LIBS:")
  109. )
  110.  
  111. ; Keyfile kopieren ------------------------------------------------------------------------------------------
  112. (COMPLETE 15)
  113. (SET sfxsub-dest "DEVS:keyfiles")
  114. (IF (= (EXISTS sfxsub-dest) 0)
  115.     (MAKEDIR sfx-dest (INFOS))
  116. )
  117. (IF (= (EXISTS "Keyfiles/SFX.key") 1)
  118.     (COPYFILES
  119.         (PROMPT #copy-keyfile)
  120.         (HELP #copy-help)
  121.         (SOURCE "Keyfiles/SFX.key")
  122.         (DEST "DEVS:keyfiles/")
  123.     )
  124. )
  125.  
  126. ; Synths ----------------------------------------------------------------------------------------------------
  127. (COMPLETE 18)
  128. (SET sfxsub-dest (TACKON sfx-dest "Synths"))
  129. (IF (= (EXISTS sfx-dest) 0)
  130.     (MAKEDIR sfxsub-dest (INFOS))
  131. )
  132. (COPYFILES
  133.     (PROMPT #copy-synths)
  134.     (HELP #copy-help)
  135.     (SOURCE "Synths/")
  136.     (DEST sfxsub-dest)
  137.     (ALL)
  138. )
  139.  
  140. ; Eqshapes --------------------------------------------------------------------------------------------------
  141. (COMPLETE 30)
  142. (SET sfxsub-dest (TACKON sfx-dest "Eqshps"))
  143. (IF (= (EXISTS sfx-dest) 0)
  144.     (MAKEDIR sfxsub-dest (INFOS))
  145. )
  146. (COPYFILES
  147.     (PROMPT #copy-eqshapes)
  148.     (HELP #copy-help)
  149.     (SOURCE "Eqshps/")
  150.     (DEST sfxsub-dest)
  151.     (ALL)
  152. )
  153.  
  154. ; Envelopes -------------------------------------------------------------------------------------------------
  155. (COMPLETE 35)
  156. (SET sfxsub-dest (TACKON sfx-dest "Envelopes"))
  157. (IF (= (EXISTS sfx-dest) 0)
  158.     (MAKEDIR sfxsub-dest (INFOS))
  159. )
  160. (COPYFILES
  161.     (PROMPT #copy-envelopes)
  162.     (HELP #copy-help)
  163.     (SOURCE "Envelopes/")
  164.     (DEST sfxsub-dest)
  165.     (ALL)
  166. )
  167.  
  168. ; ARexx-Scripte ---------------------------------------------------------------------------------------------
  169. (COMPLETE 40)
  170. (SET sfxsub-dest (TACKON sfx-dest "Rexx"))
  171. (COPYFILES
  172.     (PROMPT #copy-rexxscripts)
  173.     (HELP #copy-help)
  174.     (SOURCE "Rexx/")
  175.     (DEST sfxsub-dest)
  176.     (ALL)
  177. )
  178.  
  179. ; Workshop-Scripte ------------------------------------------------------------------------------------------
  180. (COMPLETE 45)
  181. (SET sfxsub-dest (TACKON sfx-dest "Workshop"))
  182. (COPYFILES
  183.     (PROMPT #copy-workshop)
  184.     (HELP #copy-help)
  185.     (SOURCE "Workshop/")
  186.     (DEST sfxsub-dest)
  187.     (ALL)
  188. )
  189.  
  190. ; Guide -----------------------------------------------------------------------------------------------------
  191.  
  192. (SET sfxsub-dest (TACKON sfx-dest "Guides"))
  193. (IF (= (EXISTS sfx-dest) 0)
  194.     (MAKEDIR sfxsub-dest (INFOS))
  195. )
  196. (SET gver
  197.     (ASKCHOICE
  198.         (PROMPT #choose-lang)
  199.         (HELP -choose-lang-help)
  200.         (CHOICES
  201.             "english"
  202.             "german"
  203.         )
  204.         (DEFAULT 0)
  205.     )
  206. )
  207. (COMPLETE 50)
  208. (IF (= gver 0)
  209.     (COPYFILES
  210.         (PROMPT #copy-guides)
  211.         (HELP #copy-help)
  212.         (SOURCE "Guides_engl/")
  213.         (DEST sfxsub-dest)
  214.         (ALL)
  215.         (INFOS)
  216.     )
  217. )
  218. (IF (= gver 1)
  219.     (COPYFILES
  220.         (PROMPT #copy-guides)
  221.         (HELP #copy-help)
  222.         (SOURCE "Guides_dt/")
  223.         (DEST sfxsub-dest)
  224.         (ALL)
  225.         (INFOS)
  226.     )
  227. )
  228.  
  229. ; Versionsauswahl -------------------------------------------------------------------------------------------
  230. (COMPLETE 70)
  231. (SET pver
  232.     (ASKCHOICE
  233.         (PROMPT #choose-pver)
  234.         (HELP -choose-pver-help)
  235.         (CHOICES
  236.             "  68000"
  237.             "* 68020"
  238.             "* 68020-881"
  239.             "* 68030"
  240.             "  68030-881"
  241.             "* 68040-881"
  242.         )
  243.         (DEFAULT 0)
  244.     )
  245. )
  246. (IF (= pver 0)
  247.     (COPYFILES
  248.         (PROMPT #copy-executable)
  249.         (HELP #copy-help)
  250.         (SOURCE "SFX/sfx.68000")
  251.         (DEST sfx-dest)
  252.         (NEWNAME "SoundFX")
  253.     )
  254. )
  255. (IF (= pver 1)
  256.     (COPYFILES
  257.         (PROMPT #copy-executable)
  258.         (HELP #copy-help)
  259.         (SOURCE "SFX/sfx.68020")
  260.         (DEST sfx-dest)
  261.         (NEWNAME "SoundFX")
  262.     )
  263. )
  264. (IF (= pver 2)
  265.     (COPYFILES
  266.         (PROMPT #copy-executable)
  267.         (HELP #copy-help)
  268.         (SOURCE "SFX/sfx.68020-881")
  269.         (DEST sfx-dest)
  270.         (NEWNAME "SoundFX")
  271.     )
  272. )
  273. (IF (= pver 3)
  274.     (COPYFILES
  275.         (PROMPT #copy-executable)
  276.         (HELP #copy-help)
  277.         (SOURCE "SFX/sfx.68030")
  278.         (DEST sfx-dest)
  279.         (NEWNAME "SoundFX")
  280.     )
  281. )
  282. (IF (= pver 4)
  283.     (COPYFILES
  284.         (PROMPT #copy-executable)
  285.         (HELP #copy-help)
  286.         (SOURCE "SFX/sfx.68030-881")
  287.         (DEST sfx-dest)
  288.         (NEWNAME "SoundFX")
  289.     )
  290. )
  291. (IF (= pver 5)
  292.     (COPYFILES
  293.         (PROMPT #copy-executable)
  294.         (HELP #copy-help)
  295.         (SOURCE "SFX/sfx.68040-881")
  296.         (DEST sfx-dest)
  297.         (NEWNAME "SoundFX")
  298.     )
  299. )
  300.  
  301. ; Icon ------------------------------------------------------------------------------------------------------
  302. (COMPLETE 95)
  303. (SET icon
  304.     (ASKCHOICE
  305.         (PROMPT #choose-icon)
  306.         (HELP -choose-icon-help)
  307.         (CHOICES
  308.             "4 colours"
  309.             "8 colours"
  310.         )
  311.         (DEFAULT 0)
  312.     )
  313. )
  314. (IF (= icon 0)
  315.     (COPYFILES
  316.         (SOURCE "SFX/SoundFX_4col.info")
  317.         (DEST sfx-dest)
  318.         (NEWNAME "SoundFX.info")
  319.     )
  320. )
  321. (IF (= icon 1)
  322.     (COPYFILES
  323.         (SOURCE "SFX/SoundFX_8col.info")
  324.         (DEST sfx-dest)
  325.         (NEWNAME "SoundFX.info")
  326.     )
  327. )
  328.  
  329. ; Fertig ----------------------------------------------------------------------------------------------------
  330. (COMPLETE 99)
  331. (MESSAGE #exit-messy)
  332. (COMPLETE 100)
  333.  
  334. (EXIT (QUIET))
  335. ; Install-SFX Ende ------------------------------------------------------------------------------------------
  336.